﻿Public Class Usuarios


    Sub Agregar(ByVal usuarios As SistemaCajas.BE.Usuarios)
        Dim dsMantinimiento As SistemaCajas.DS.Usuarios
        dsMantinimiento = New SistemaCajas.DS.Usuarios
        dsMantinimiento.Agregar(usuarios)
    End Sub

    Function Listar() As List(Of SistemaCajas.BE.Usuarios)
        Dim dsMantinimiento As SistemaCajas.DS.Usuarios
        dsMantinimiento = New SistemaCajas.DS.Usuarios
        Return dsMantinimiento.Listar
    End Function

    Function Editar(ByVal usuarios As SistemaCajas.BE.Usuarios) As Boolean
        Dim dsInventario As SistemaCajas.DS.Usuarios
        dsInventario = New SistemaCajas.DS.Usuarios
        Return dsInventario.Editar(usuarios)
    End Function

    Function CambiarEstado(ByVal id As Integer) As SistemaCajas.BE.Usuarios
        Dim dsCambiarEstado As SistemaCajas.DS.Usuarios
        dsCambiarEstado = New SistemaCajas.DS.Usuarios
        Return dsCambiarEstado.CambiarEstado(id)
    End Function

    Function CambiarEstado2(ByVal id As Integer) As SistemaCajas.BE.Usuarios
        Dim dsCambiarEstado2 As SistemaCajas.DS.Usuarios
        dsCambiarEstado2 = New SistemaCajas.DS.Usuarios
        Return dsCambiarEstado2.CambiarEstado2(id)
    End Function




    Function Obtener(ByVal id As Integer) As SistemaCajas.BE.Usuarios
        Dim dsInventario As SistemaCajas.DS.Usuarios
        dsInventario = New SistemaCajas.DS.Usuarios
        Return dsInventario.Obtener(id)
    End Function

    Function FiltrarUsuariosActivos() As List(Of SistemaCajas.BE.Usuarios)
        Dim dsMantinimiento As SistemaCajas.DS.Usuarios
        dsMantinimiento = New SistemaCajas.DS.Usuarios
        Return dsMantinimiento.FiltrarUsuariosActivos
    End Function

    Function FiltrarUsuariosInhactivos() As List(Of SistemaCajas.BE.Usuarios)
        Dim dsMantinimiento As SistemaCajas.DS.Usuarios
        dsMantinimiento = New SistemaCajas.DS.Usuarios
        Return dsMantinimiento.FiltrarUsuariosInhactivos
    End Function

    Function FiltrarUsuariosIdentificación(ByVal Identificacion As SistemaCajas.BE.Usuarios) As List(Of SistemaCajas.BE.Usuarios)
        Dim dsMantinimiento As SistemaCajas.DS.Usuarios
        dsMantinimiento = New SistemaCajas.DS.Usuarios
        Return dsMantinimiento.FiltrarUsuariosIdentificación(Identificacion)
    End Function

End Class
